open Castling;;

module CharPG = ParserGenerator (CharToken);;
open CharPG;;

let rec test = lazy !! (
	one_of ~name:"a" [
		"a1", element 'A' >> element 'B';
		"a1", element 'A' >> skip (element 'B') >> element 'C';
		"a2", sequence_of (element 'D' >> element 'E')]
(*		"a2", sequence_of (element 'D' >> element 'E') >> element ('F')] *)
);;

debug := true;;
runtime_debug := true;;
generate test;;
